home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Recognize.94.cpt / Recognize .94 / background_6153.txt < prev    next >
Text File  |  1988-11-13  |  3KB  |  124 lines
  1. -- background: 6153 from stack: in.94
  2. -- bmap block id: 6859
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: posting cards
  6. ----- HyperTalk script -----
  7. on openbackground
  8.   push recent card
  9.   put empty into bkgnd field themessage
  10. end openbackground
  11.  
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 00
  16. -- high flags: 0007
  17. -- rect: left=25 top=133 right=309 bottom=487
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 4
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: themessage
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: A003
  31. -- rect: left=395 top=83 right=104 bottom=460
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Send
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   set cursor to 4
  43.   global lastcard
  44.   put "Sending your message, please wait..."
  45.   get the number of lines of bkgnd field themessage
  46.   put it into nolines
  47.   repeat with i = 1 to nolines
  48.     set cursor to busy
  49.     get line i of bkgnd field themessage
  50.     put return after it
  51.     sendsport it
  52.   end repeat
  53.   sendsport  ".s"
  54.   sendsport  return
  55.   hide message
  56.   rebuffer
  57.  
  58.   if lastcard is "mail" then go to card mail
  59.   else
  60.     go back
  61.   end if
  62.   --backfromreply
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 3 (button)
  68. -- low flags: 00
  69. -- high flags: A003
  70. -- rect: left=395 top=108 right=129 bottom=461
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Abort
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   global lastcard
  82.   answer "Are you sure you want to cancel?" with "Yes" or "No"
  83.   if it is "yes" then
  84.     sendsport 1,false,".a"
  85.     sendsport 1,false,return
  86.     sendsport 1,false,y
  87.     sendsport 1,false,return
  88.     sendsport 1,false,a
  89.     if lastcard is "mail" then go to card mail
  90.     else go back
  91.     backfromreply
  92.   end if
  93.  
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 4 (field)
  99. -- low flags: 01
  100. -- high flags: 0004
  101. -- rect: left=96 top=83 right=105 bottom=247
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 3
  106. -- text size: 14
  107. -- style flags: 256
  108. -- line height: 18
  109. -- part name: to
  110.  
  111.  
  112. -- part 5 (field)
  113. -- low flags: 01
  114. -- high flags: 0004
  115. -- rect: left=96 top=107 right=129 bottom=247
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 3
  120. -- text size: 14
  121. -- style flags: 256
  122. -- line height: 18
  123. -- part name: subject
  124.